home *** CD-ROM | disk | FTP | other *** search
- ## onerror_test.tg
- # handle an error with an ONERROR handler
- # we fake the exception by raising the error ourself with 'raise'
-
- {
- -name onerror_test
- -start
- -action -print raise an exception
- -action -onerror my_error_procedure
- -action -raise
- -action -print should never reach this point
- -action -inc 0 0 0 3
- }
-
- {
- -name my_error_procedure
- -action -print This is the error handler
- -action -return break
- }
-
-